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-- file: DumpFrames .Mesa 
-- Edited by: 

Sandman on May 1, 1978 2:12 PM 

Barbara on July 20, 1978 4:05 PM 

Johnsson on August 29, 1978 2:00 PM 

DIRECTORY 

ControlDefs: FROM "control defs" USING [ 

BytePC, ControlLink, Frame, FrameHandle, GlobalFrame, Global FrameHandle , 

localbase, NullFrame, Nul IGlobal Frame, WordPC], 
DebucjBreakptDefs: FROM "debugbreakptdef s" USING [ 

PrintLocation, SourceFileMissing], 
DebugContextDefs: FROM "debugcon textdef s" USING [ 

FrameToModuleName, IncorrectVersion, ModuleNameToFrame] , 
DebugData: FROM "debugdata" USING [gContext, IContext, sigGF, StatePtr], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

AmlaRecord, BodySei, DumpCtxFromState, DumpCtxList, FieldContext, 

FormatRecord, FrameRelBPC, FRPointer, ful Ibitaddress, MainBTI, PcToBTI, 

PcToCBTI, SA, SymFrameHandle, WriteBlanks, WriteBodyName, Wri teFrameLocus , 

WriteSource], 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

ControlDEL, CopyRead, DFreeString, DGetString, WriteEOL], 
DebugSymbolDefs: FROM "debugsymbol def s" USING [ 

DAcqu ireSymbolTabl e, DReleaseSymbolTable, SymbolsForFrame, 

Symbol sForGFrame] , 
DebugUtilityDefs: FROM "debugutil i tydef s" USING [ 

CheckFrame, LoadStatelnval id, MREAD], 
lODefs: FROM "iodefs" USING [ 

CR, DEL, NUL, ReadChar, ReadDecimal , WriteChar, WriteDecimal , WriteLine, 

WriteOctal, WriteString] , 
LoadStateDefs: FROM "loadstatedef s" USING [ 

InputLoadState, ReleaseLoadState] , 
StreamDefs: FROM "streamdefs" USING [ControlDELtyped] , 
SymbolTableDefs: FROM "symbol tabledefs" USING [ 

NoSymbol Table, Symbol Tab! eB as e] , 
SymDefs: FROM "symdefs" USING [ 

BTIndex, BTNull. CBTIndex. CTXIndex, ISEIndex, ISENull, IG, SEIndex, 

SENull]; 

DEFINITIONS FROM DebugSymbolDefs, DebugUtilityDefs, DebuggerDefs; 

DumpFrames: PROGRAM 

IMPORTS DDptr: DebugData, DebugBreakptDefs , DebugContextDefs, DebuggerDefs, 

DebugMiscDefs, DebugSymbolDefs, DebugUtilityDefs, lODefs, LoadStateDefs, 

StreamDefs, SymbolTableDefs 
EXPORTS DebuggerDefs = 

BEGIN 

CTXIndex: TYPE - SymDefs .CTXIndex; 

FrameHandle: TYPE = ControlDefs . FrameHandle; 

GlobalFrameHandle: TYPE = ControlDefs .Global FrameHandle; 

ISEIndex: TYPE =» SymDefs . ISEIndex; 

ISENull: SymDefs. ISEIndex = SymDefs . ISENull ; 

BTIndex: TYPE = SymDefs .BTIndex ; 

SEIndex: TYPE = SymDefs . SEIndex ; 

SENull: SymDefs. SEIndex = SymDefs .SENull ; 

SymbolTableBase: TYPE = SymbolTableDefs .Symbol FableBase; 

DisplayStack: PUBLIC PROCEDURE » 
BEGIN 

IF DDptr. IContext ff NIL THEN LocalDump[DDptr . IContext] 
ELSE IF DDptr. gContext ^ NIL THEN GlobalDump[DDptr . gContext] 
ELSE lODef s .Wri teString[" I Current context invalid. "L]; 
RETURN 
END; 

DisplayFrame: PUBLIC PROCEDURE [f: UNSPECIFIED] « 
BEGIN 

IF DebugUtilityDefs.ClieckFrame[f] THEN LocalDump[f] 
ELSE GlobalDump[f]; 
RETURN 
END; 

LocalDump: PUBLIC PROCEDURE [frame: FrameHandle] « 
BEGIN "-dump local frames 
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npf: STRING « "No previous frai!tel"L; 
DO 

ENABLE 
BEGIN 

QuitDump «> EXIT; 
NoPreviousFranie »> 
BEGIN 

DebugMiscDefs.WriteE0L[3: 
IODefs.WriteString[npf]; 
EXIT; 
END 
END; 
FrameDump[frame I NewFrame «> BEGIN frame <- newframe; RETRY END]; 
frame <- PreviousFrame[f name]; 
ENDLOOP; 
DebugMiscDefs.WriteEOL[]; 
RETURN 
END; 

GlobalDump: PUBLIC PROCEDURE [gframe: Global FrameHandl e] « 
BEGIN --dump a global frame 
c: CHARACTER; 

f: SymFrameHandle ^ FrameForMainBody[gf rame] ; 
IF f.faddr ^ ControlDef s .Nul IFrame THEN 
BEGIN 

DReleaseSymbolTable[f .stbase]; 
FrameDump[f .faddr 1 QuitDump => CONTINUE] 
END 
ELSE 
BEGIN 

DebugMiscDefs.WriteEOL[]; 

IF f.stbase = NIL THEN lOOef s.Wri teString["No symbols for "L]; 
WriteModuleGFrame[ gframe]; 
IF f.stbase - NIL THEN RETURN; 
DO 

IODefs.WriteString[" >'T]; 
c ♦- IODefs.ReadChar[]; 
IODefs.WriteChar[c]; 
SELECT c FROM 

'p, 'P -> DumpGParams[gframe, f.stbase]; 
'v, 'V => DumpGLocalsfgframe, f.stbase]; 
'r, 'R => DumpGRetValsfgframe, f.stbase]; 
's, 'S => DumpGSource[gframe] ; 
•q, 'Q, lODefs.DEL => EXIT; 

ENDCASE => IODefs.WriteString["--Options are: p, q, r, s, v. "L]; 
ENDLOOP; 
DReleaseSymbolTable[f .stbase]; 
END; 
RETURN 
END; 

ModuleDump: PUBLIC PROCEDURE [m: STRING] = 
BEGIN --dump the global frame named by m 

f: Global FrameHandle <- DebugContextDef s .Modul eNameToFrame[m] ; 
IF f # ControlDefs.NullGlobalFrame THEN GlobalDump[f ] ; 
RETURN 
END; 

QuitDump: SIGNAL « CODE; 

NextFrame: SIGNAL = CODE; 

DumpNext: PROCEDURE [ISEIndex, FRPointer, SymFrameHandle] « 
BEGIN 

SIGNAL NextFrame; 
RETURN 
END; 

NewFrame: SIGNAL [newframe: FrameHandle] « CODE; 

DumpJump: PROCEDURE [bsei: ISEIndex, frp: FRPointer, f: SymFrameHandle] 
BEGIN 

i, n: INTEGER; 

IODeFs.WriteString[", n{10): "L]; 
IF (n *- IODefs.ReadOecimal[]) <" THEN RETURN; 
FOR i IN [0. .n) DO 
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f.faddr ♦- PreviousFram0[ F .f addr 1 NoPrev iousFrame «> 
BEGIN OPEN lODefs; 
IF i < n-1 THEN 

BEGIN WriteChar['(]; WriteDecinial[i] ; WriteChar[ ' )] ; END; 
EXIT; 
END]; 
ENDLOOP; 
DRe1easesSymbolTable[f .stbase]; 
DebugMiscDefs.WriteEOL[]; 
SIGNAL NewFrame[f .faddr]; 
RETURN 
END; 

FrameAtEntry : FranieTest = 
BEGIN OPEN f. stbase; 

pc: ControlDefs.BytePC <- FrameRelBPC[f . faddr] ; 
cbti: SymDefs.CBTIndex ♦■ PcToCBTI[f . stbase, pc]; 
WITH (bb+cbti).info SELECT FROM 

External => RETURN [pc - origin]; 

ENDCASE «> ERROR 
END; 

FrameAtExit: FrameTest » 
BEGIN OPEN f. stbase; 

pc: ControlDefs.BytePC *- FrameRe1BPC[f .faddr] ; 
cbti: SymDefs.CBTIndex <r- PcToCBTI[f . stbase, pc]; 
WITH {bb-i-cbti),info SELECT FROM 

External => RETURN [pc = (origin+bytes-1)] ; 

ENDCASE => ERROR 
END; 

FrameTest: TYPE = PROCEDURE [f: SymFrameHandl e] RETURNS [BOOLEAN]; 

DumpLocalContext: PROCEDURE [ 

context: SEIndex, frp: FRPointer, f: SymFrameHandle, test: FrameTest] = 
BEGIN OPEN f. stbase; --Display values of all parameters of body sei 
a: f ul Ibitaddress ♦- ful lbitaddress[bd: 0, 

wd: short[shortAddr:LOOPHOLE[f .faddr]]]; 
IF context - SymDef s .SENul 1 THEN RETURN; 

IF MainBodyFrame[f ] THEN a.wd <- short[shortAddr :MREAD[@f .faddr . accessl ink]] ; 
IF test[f] THEN 

DumpCtxFromState[context, frp, f. stbase, DDptr.StatePtr, FALSE] 
ELSE DumpCtxList[FieldContext[f .stbase, context], f. stbase, TRUE, a, frp 

1 AmIaRecord => RESUME[FALSE]] ; 
RETURN 
END; 

DumpParameters: PUBLIC PROCEDURE [ 

bsei: ISEIndex, frp: FRPointer, f: SymFrameHandle] = 

BEGIN OPEN f. stbase; 

DebugMiscDefs.WriteEOL[]; 

DumpLocalContext[ 

TransferTypes[(seb+bsei) . idtype]. typein, frp, f, FrameAtEntry]; 
RETURN 
END; 

DumpRetVals: PUBLIC PROCEDURE [ 

bsei: ISEIndex, frp: FRPointer, f: SymFrameHandle] « 

BEGIN OPEN f. stbase; --Display values of all RETURN variables of body sei 

DebugMiscDefs.WriteEOL[]; 

DumpLocalContext[ 

TransferTypes[(seb+bsei) . idtype]. typeOut, frp, f, FrameAtExit]; 
RETURN 
END; 

DumpLocals: PUBLIC PROCEDURE [ 

bsei: ISEIndex, frp: FRPointer, f: SymFrameHandle] « 
--Display values of all locals of procedure sei 
BEGIN OPEN f. stbase; 
a: short fullbitaddress <- f ul lbitaddress[bd: 0, 

wd: short[shortAddr:LOOPHOLE[f .faddr, DebuggerDef s .SA]]]; 
typein, typeout: SymDef s .SEIndex; 
bti: BTIndex; 
DebugMiscDefs.WriteEOL[]; 

[typein, typeout] ♦- Transf erTypes[(seb+bsei) . idtype] ; 
IF typein # SENull THEN DumpLocalContext[ typein , frp, f, FrameAtEntry]; 
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IF typeout ^ SENull THEN DumpLoca1Context[typeout , frp, f, FrameAtExit] ; 
IF (bti ^ PcToBTI[f .stbase. FrameRe1BPC[f .f addr]]) « SymDof s .BTNull 

THEN RETURN; 
DO 

WITH b:(bb+bti) SELECT FROM 
Callable »> EXIT; 
ENDCASE; 
a.wd <- short[shortAddr:LOOPHOLE[ 

IF MainBodyFrame[f] THEN MREAD[@f .f addr . access! ink] 
ELSE f.faddr, DebuggerDef s .SA]] ; 
DumpCtxList[(bb+bti).loca1Ctx, f. stbase, TRUE, a, frp 

1 AmlaRecord => RESUME[FALSE]] ; 
UNTIL (bb+bti) .link. which » parent DO 
bti ^ (bb+bti) . 1 ink. index; 
ENDLOOP; 
IF (bti ^ (bb+bti). link. index) » SymDefs .BTNull THEN RETURN; 
ENDLOOP; 
a.wd ^ short[shortAddr:LOOPHOLE[ 

IF MainBodyFrame[f] THEN MREAD[@r . f addr . access! ink] 
ELSE f.faddr, DebuggerDef s .SA]] ; 
DumpCtxList[(bb+bti) .localCtx, f. stbase, TRUE, a, frp 

1 AmlaRecord => RESUME[FALSE]] ; 
RETURN 
END; 

DumpGlobalContext: PROCEDURE [context: SEIndex, frp: FRPointer, 
frame: Global FrameHandle, stbase: SymbolTableBase] = 
BEGIN OPEN stbase; --Display values of all parameters of body sei 
a: f ullbi taddress <- ful lbitaddress[bd: 0, 

wd: short[shortAddr:LOOPHOLE[frame]]]; 
IF context = SymDefs .SENull THEN RETURN; 
DebugMiscDefs.WriteEOL[]; 
DumpCtxList[FieldContext[stbase, context], stbase, TRUE, a, frp 

I AmlaRecord => RESUME[FALSE]]; 
RETURN 
END; 

DumpGLocals: PUBLIC PROCEDURE [ 

gframe: Global FrameHandle, stbase: SymbolTableBase] « 

--Display values of all locals of program sei 

BEGIN OPEN lODefs, stbase; 

FR: FormatRecord <- FormatRecord[indentation: 2, symid: TRUE, firstsym: TRUE, 

symdelim: '=, startchar: NUL, termchar: NUL, intersym: CR]; 
a: f ul Ibitaddress ♦- ful lbitaddress[bd: 0, 

wd: short[shortAddr:LOOPHOLE[gframe]]]; 
typein, typeout: SymDefs. SEIndex; 
id: ISEIndex; 

IF (id ^ (bb+MainBTI).id) = ISENull THEN RETURN; 
DebugMiscDefs.WriteEOL[]; 

[typein, typeout] <- TransferTypes[( seb+id) . idtype] ; 
DumpGlobalContext[typein, @FR, gframe, stbase]; 
DumpGlobalContext[typeout , @FR, gframe, stbase]; 
DumpCtxList[(bb+MainBTI) .localCtx, stbase, TRUE, a, 6FR 

1 AmlaRecord => RESUME[FALSE]] ; 
RETURN 
END; 

DumpGParams: PROCEDURE [ 

gframe: Global FrameHandle, stbase: SymbolTableBase] » 

--Display values of all locals of program sei 

BEGIN OPEN lODefs. stbase; 

FR: FormatRecord <- FormatRecord[indentation: 2, symid: TRUE, firstsym: TRUE, 

symdelim: '=, startchar: NUL, termchar: NUL, intersym: CR]; 
id: ISEIndex; 

IF (id <- (bb+MainBTI).id) - ISENull THEN RETURN; 
DumpGlobalContext[ 

TransferTypes[(seb+id) . idtype] . typeIn , @FR, gframe, stbase]; 
RETURN 
END; 

DumpGRetVals: PROCEDURE [ 

gframe: Global FrameHandle, stbase: SymbolTableBase] « 
--Display values of all locals of program sei 
BEGIN OPEN lODefs, stbase; 

FR: FormatRecord *- FormatRecord[indentation: 2, symid: TRUE, firstsym: TRUE, 
symdelim: '», startchar: NUL, termchar: NUL, intersym: CR]; 
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id: ISEIndex; 

IF (id <- (bb+MainBTI).id) = ISENull THEN RETURN; 

DumpGloba1Context[ 

TransferTypes[(seb+id) . idtype] . typeOut , @FR, gframe, stbase]; 
RETURN 
END; 

DumpGSource: PUBLIC PROCEDURE [gframe: Global FrameHandle]" 
BEGIN 

na: STRING » " not availab1e"L; 
DebugMiscDefs.WriteEOL[]; 
IODefs.WriteString[" Source: "L]; 
DebugBreakptDefs.PrintLocation[gframe, 0, TRUE 
1 DebugBreakptDef s.SourceFileMissing => 

BEGIN 

lODef s .WriteString[sourcename] ; 

IODefs.WriteString[na]; 

CONTINUE; 

END]; 
RETURN 
END; 

DumpSource: PUBLIC PROCEDURE [sei: ISEIndex, frp: FRPointer, f: SymFrameHandle]= 
BEGIN 

WriteSource[MREAO[@f.faddr. access link], FrameRe1BPC[f . f addr] . TRUE]; 
RETURN 
END; 

DumpChoice: PROCEDURE [sei: ISEIndex, frp: FRPointer, f: SymFrameHandle] « 
--Interrogate user and call chosen dump procedure to use for this frame only 
BEGIN 

which: PROCEDURE [ISEIndex, FRPointer, SymFrameHandle] <- choose[]; 
which[sei, frp, f]; 
RETURN 
END; 

DumpCatchFrame: PUBLIC PROCEDURE [f: FrameHandle] « 
BEGIN 

sfh: SymFrameHandle; 
BEGIN 

sfh. stbase ^ DAcquireSymbolTable[SymbolsForFrame[f 
1 SymbolTableDefs.NoSymbolTable => GOTO nosym] 
I SymbolTableDefs.NoSymbolTable => GOTO nosym]; 
sfh.faddr <- f; 
WriteBodyName[sfh. FALSE]; 
IODefs.WriteString[", "L]; 
DReleaseSymbolTabl e[sfh. stbase]; 
EXITS 

nosym => NULL; 
END; 

IODefs.WriteString["CatchFrame: "L]; lODef s . WriteOctal[f ] ; 
DebugMiscDefs.WriteEOL[]; 
RETURN 
END; 

CatchFrame: PUBLIC PROCEDURE [f: FrameHandle] RETURNS [BOOLEAN] = 
BEGIN OPEN ControlDefs; 
next, LO: FrameHandle; 

SignalHandle: TYPE = POINTER TO signal Frame; 
CatchHandle: TYPE = POINTER TO catch Frame; 
nextbase: signal Frame; 

nextp: POINTER TO ARRAY[0..1) OF UNSPECIFIED *- L00PHOLE[6nextbase] ; 
i: CARDINAL; 
BEGIN 

next <- PreviousFrame[f 1 ANY => GOTO notcatch]; 
IF MREAD[@next.accesslink] ^ DDptr.sigGF THEN GOTO notcatch; 
LO *- MREAD[@LOOPHOLE[f , CatchHandl e] . staticl ink] ; 
IF '-CheckFramefnext] 

OR MREAD[@LOOPHOLE[f , FrameHandle] . accessl Ink] 

U MREAD[@L0OPHOLE[L0-localbase, FrameHandle]. accessl ink] 

THEN GOTO notcatch; 
FOR i IN [0. .SIZE[signal Frame]) DO 

n0xtp[i] <- MREAD[next-fi]; 

ENDLOOP; 
IF -nextbase. mark THEN GOTO notcatch; 
EXITS 
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notcatch »> RETURN[FALSE]; 
END; 

RETURN[TRUE]; 
END; 

FrameDump: PROCEDURE [frame: FrameHandle] « 
BEGIN 

sei: ISEIndex; 
f: SymFrameHandle; 
FR: FormatRecord; 

BEGIN 

DebugMiscDefs.WriteEOL[]; 
IF CatchFrame[f rame] 

THEN BEGIN DumpCatchFrame[f rame] ; RETURN END; 
f.stbase +- DAcquireSymbolTable[ 
Symbol sForFrame[f rame I 

Symbo1TableDefs.NoSymbolTab1e--[seg]-- => GOTO nosym; 
DebugContextDef s.IncorrectVersion => RESUME] 1 
Symbo1TableDefs.NoSymbo1Table--[seg]-"- => GOTO nosym]; 
f.faddr ♦- frame; 
WriteFrameLocus[f , FALSE]; 
sei <- BodySei[f]; 
IF sei # ISENun THEN DO 

FR «- FormatRecord[indentation:2 , symid:TRUE, f irs tsym: TRUE , symdelim: 

startchar: lODefs.NUL, termchar: lODefs.NUL, intersym: lODefs.CR]; 
WriteB1anks[3]; 
DumpChoice[sei , @FR, f 

IQuitDump => DRe1easeSymbo1Table[f . stbase]; 
AmIaRecord => RESUME[FALSE]; 
NextFrame => EXIT]; 
DebugMiscDefs.WriteEOL[]; 
ENDLOOP; 
DRel easeSymbol Tab! e[f .stbase]; 
EXITS 

nosym => DumpLimitedChoice[f rame]; 
END; 
RETURN 
END; 

DumpLimitedChoice: PROCEDURE [frame: FrameHandle] = 
BEGIN OPEN lODefs; 
c: CHARACTER; 
i, n: CARDINAL; 
DumpNoSymbol s[f rame]; 
DO 

WriteString[" >"L]; 
c V ReadChar[]; 
WriteChar[c]; 
SELECT c FROM 
•j. 'J «> 
BEGIN 

IODefs.WriteString[", n(10): "L]; 
IF (n <- ReadDecimal[]) <= THEN EXIT; 
FOR i IN [0. .n) DO 

frame «- PreviousFrame[f rame 1 NoPreviousFrame => 
BEGIN OPEN lODefs; 
IF i < n-1 THEN 

BEGIN WriteChar['(]; WriteDecimal [i] ; WriteChar[ ' )] ; END; 
EXIT; 
END]; 
ENDLOOP; 
DebugMiscDefs.WriteEOL[]; 
SIGNAL NewFrame[frame]; 
END; 
'n, 'N => BEGIN DebugMiscDef s .Wri teEOL[] ; RETURN; END; 
'q, 'Q, DEL «> SIGNAL QuitDump; 

ENDCASE => IODefs.WriteString["--Options are: j.n.q"L]; 
ENDLOOP; 
RETURN 
END; 

DumpNoSymbol s: PUBLIC PROCEDURE [frame: FrameHandle] « 
BEGIN OPEN lODefs; 

gframe: ControlDef s .GlobalFrameHandle <- MREAD[0f rame . access! ink] ; 
WriteString["No symbols for "L]; 



DumpFrames.inesa 2-Sep~78 15:32:14 Page 



WriteModu1eGFrani0[gframe]; 

WriteString[", L: "L]; 

Wri teOctalfframe]; 

WriteString[", PC: "L]; 

WriteOcta1[ABS[MREAD[@frame.pc]]]; 

WriteChar[' ,]; 

WriteChar[IF LOOPHOLE[MREAD[@f name .pc] , ControlDef s .WordPC] <0 THEN '0 ELSE 'E]; 

RETURN 

END; 

WriteModuleGFrame: PROCEDURE [gframe: GlobalFrameHandle] » 
BEGIN OPEN lODefs; 

module: STRING <- DebugMiscDef s .DGetString[40] ; 
BEGIN ENABLE DebugUti 1 i tyDef s . LoadStatelnval i d => GOTO end; 
[] <- LoadStateDefs .InputLoadState[]; 
DebugContextDefs . FrameToModuleName[ gframe, module] ; 
Wr iteString[modu1e] ; 
DebugMiscDefs.DFreeString[module]; 
LoadStateDefs .Re1easeLoadState[]; 
WriteString[", "L]; 
EXITS 

end => NULL; 
END; 

WriteString["G: "L]; 
WriteOctal [gframe] ; 
RETURN 
END; 

choose: PROCEDURE RETURNS [p: PROCEDURE [ISEIndex. FRPointer. SymFrameHandle]] =» 
BEGIN OPEN lODefs; -- read a character to select a dump procedure 
c: CHARACTER; 
DO 

WriteString[" >"L]; 
c ^ ReadChar[]; 
WriteChar[c]; 
SELECT c FROM 

'j. 'J => BEGIN p ^ DumpJump; EXIT END; 
'n, 'N =>. BEGIN p <- DumpNext; EXIT END; 
'p, 'P => BEGIN p ^ DumpParameters; EXIT END; 
'V, 'V => BEGIN p <- DumpLocals; EXIT END; 
•r, 'R => BEGIN p *- DumpRetVals; EXIT END; 
•s, 'S => BEGIN p ^ DumpSource; EXIT END; 
•q, 'Q. DEL => SIGNAL QuitDump; 
ENDCASE => ListOptions[FALSE]; 
ENDLOOP; 
RETURN 
END; 

ListOptions: PUBLIC PROCEDURE [trace: BOOLEAN]' 
BEGIN 

lODef s .WriteString["-~Options are: p, v, r , s ,q"L]; 
IF trace THEN lODef s .WriteLine[" , b---"L] 
ELSE IODefs.WriteLine[", j,n--"L]; 
END; 

ClobberedFrame: PUBLIC ERROR [f: FrameHandle] = CODE; 
NoPreviousFrame: PUBLIC ERROR [f: FrameHandle] = CODE; 

PreviousFrame: PUBLIC PROCEDURE [f: FrameHandle] RETURNS [FrameHandle] « 
BEGIN OPEN ControlDefs; 

link: ControlLink ^ MREAD[@f . returnl ink] ; 

IF StreamDefs.ControlDELtyped[] THEN SIGNAL DebugMiscDef s .ControlDEL; 
THROUGH [0. ,100] DO 
SELECT link. tag FROM 
frame => 

IF link. frame = NullFrame THEN GOTO noPrev 
ELSE IF ~CheckFrame[l ink. frame] THEN GOTO clobbered 
ELSE RETURN[link. frame]; 
procedure => GOTO noPrev; 
indirect »> link <- MREAD[link]; 
ENDCASE «> GOTO clobbered; 
REPEAT 

noPrev «> ERROR NoPreviousFrame[f ]; 
clobbered «> ERROR ClobberedFrame[f ] ; 
FINISHED «> ERROR CI obberedFrame[f ] ; 
ENDLOOP 
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END; 

FrameForMainBody: PROCEDURE [gframe: Global FrameHandle] 
RETURNS [f :SymFrameHand1e] » 
BEGIN OPEN DebugUtilityDefs. ControlDefs; 
f ♦- SymFrameHandTe[faddr : Null Frame, stbaserNIL]; 
BEGIN OPEN f.stbase; 
f.stbase <- DAcquireSymbo1Tab1e[Symbo1sForGFrame[gf rame 

ISymboUab1eDefs.NoSymbo1Tab1e--[seg]~- °> GOTO nullframe] 

lSymboUab1eDefs.NoSymbonab1e--[seg]"- => GOTO nullframe]; 
IF -ReadGlobalStartedCgframe] THEN RETURN; 
IF (bb+MainBTI) .stopping THEN 

BEGIN f.faddr <- MREAD[@gf rame. global [0]] ; RETURN END; 
EXITS 

nullframe «> RETURN; 
END; 
RETURN 
END; 

ReadGlobalStarted: PROCEDURE [gframe: Global FrameHandl e] 
RETURNS [BOOLEAN] » 
BEGIN 

local Frame: ControlDefs .Global Frame; 
DebugMiscDef s .CopyRead[f rom: gframe, to: @localFrame, 

nwords: SIZE[ControlDefs .Global Frame]] ; 
RETURN[local Frame. started] 
END; 

MainBodyFrame: PUBLIC PROCEDURE [f: SymFrameHandle] RETURNS [BOOLEAN] = 
BEGIN OPEN F.stbase; 

cbti: SymDefs.CBTIndex ^ PcToCBTI[f . stbase, FrameRelBPC[f . f addr]] ; 
RETURN[((bb+cbti).localCtx+ctxb) .ctxlevel = SymOefs.lG] 
END; 



END 



